home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d6 / glazer.arc / INTRATE.BAS < prev    next >
BASIC Source File  |  1988-10-07  |  855b  |  27 lines
  1. 100 ' Interest Rate on Loan ("INTRATE")
  2. 110 CLS
  3. 120 COLOR 0,15 : PRINT "Interest Rate on Loan" : COLOR 15,0
  4. 130 PRINT : PRINT
  5. 140 DEFDBL A-Z
  6. 150 DEFINT M-N
  7. 160 '     Let user enter the data
  8. 170 PRINT "Do not enter dollar signs or commas"
  9. 180 PRINT
  10. 190 INPUT "Amount of loan: ", PNCPL
  11. 200 INPUT "Monthly payment: ", PMT
  12. 210 INPUT "Term (in months): ", NMONTHS
  13. 220 '     Use bisection method to find interest rate
  14. 230 RLOWER = 0  'Initial values
  15. 240 RUPPER= .5
  16. 250 WHILE (RUPPER - RLOWER) > .00001
  17. 260   PR = (RLOWER + RUPPER) / 2
  18. 270   'Calculate payment for trial value
  19. 280   TRIALPMT = PNCPL / ( (1 - (1 + PR) ^ -NMONTHS) / PR)
  20. 290   IF TRIALPMT > PMT  THEN RUPPER = PR  ELSE RLOWER = PR
  21. 300 WEND
  22. 310 '     Print results
  23. 320 AR = (RUPPER + RLOWER) / 2 * 1200
  24. 330 PRINT
  25. 340 PRINT "Interest rate: "; USING "###.##_%"; AR
  26. 350 END
  27.